home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
access
/
mdbgu.zip
/
TEXTBOX.COD
< prev
next >
Wrap
Text File
|
1995-02-21
|
510b
|
17 lines
; default code for a text box control
; got focus to change background color
sub <<controlname>>_GotFocus(Index as integer)
<<controlname>>(Index).BackColor = HIGH_BACKCOLOR
<<controlname>>(Index).SelLength = len(<<controlname>>(Index).Text)
<<controlname>>(Index).SelStart = 0
end sub
; got focus to change background color
sub <<controlname>>_LostFocus(Index as integer)
<<controlname>>(Index).BackColor = NORM_BACKCOLOR
<<controlname>>(Index).SelLength = 0
end sub